home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
WINE02BX
/
DOS-FNS.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
4KB
|
41 lines
;;; compiled by @win386 on Sat Mar 13 14:37:47 1993
;;; from file c:/src/lucid-19.4/lisp/prim/dos-fns.el
;;; emacs version 19.3 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(byte-code "└┬─┼Mê╞╟Mê╚╔Mê╩╦Mê╠═Mç" [((ax . 0) (bx . 1) (cx . 2) (dx . 3) (si . 4) (di . 5) (cflag . 6) (flags . 7)) register-name-by-word-alist ((al 0 . 0) (ah 0 . 1) (bl 1 . 0) (bh 1 . 1) (cl 2 . 0) (ch 2 . 1) (dl 3 . 0) (dh 3 . 1)) register-name-by-byte-alist make-register #[nil "└┴┬\"ç" [make-vector 8 0] 3] register-value #[(regs name) "└ \n\"A«à└ \"Aë:½Ö@HA╟U½å╚ª¬ä╚Ñ)¬èº½àH¬ü╔)ç" [assoc name register-name-by-word-alist register-name-by-byte-alist where regs tem 0 256 nil] 4] set-register-value #[(regs name value) "º½σ┴V½α┬\"A«à┬\"Aë:½╜╟ª@Hë ╟ª\n ╟ÑA┴U½Å@╟_\\Iê¬ì@╟_\\Iê+¬Éº½ï╠ªIê)ç" [value 0 assoc name register-name-by-word-alist register-name-by-byte-alist where 256 regs tem l h 65536] 5] intdos #[(regs) "└┴\n\"ç" [int86 33 regs] 3] bdos #[(func dx al) "º¡╜ º¡╣\nº¡╡├ ─╟╚#ê╟┬\n#ê╟┴ #ê╔!ê╩╦\"╠U¼ä═¬å╩╬\"*ç" [func dx al make-register nil result regs set-register-value ah intdos register-value cflag 0 -1 ax] 4]] 2)
(fset 'disk-free-space #[(&optional drive) "└ ┬ ├─#ê┬ ┼º«ü╟#ê╚ !ê╔ ╩\"╔ ╦\"╔ ╠\"E)ç" [make-register regs set-register-value ah 54 dl drive 0 intdos register-value bx cx ax] 5 "\
Return a list of free space information of current drive.
List elements are:
0. Number of unused sectors.
1. Number of bytes per sector.
2. Number of sectors per cluster."])
(fset 'disk-total-space #[(&optional drive) "└ ┬ ├─#ê┬ ┼º«ü╟#ê╚ !ê╔ ╩\"╔ ╦\"╔ ╠\"E)ç" [make-register regs set-register-value ah 54 dl drive 0 intdos register-value dx cx ax] 5 "\
Return a list of free space information of current drive.
List elements are:
0. Number of total sectors.
1. Number of bytes per sector.
2. Number of sectors per cluster."])
(fset 'set-keyclick #[(mode) "┴=¡¥┬ ─┼╞#ê─╟½â╔¬ü╩#ê╦╠\"ê)═ç" [dos-machine-type j3100 make-register regs set-register-value ah 242 al mode 1 0 int86 22 nil] 4 "\
Set/Reset key click sound.
If first arg non-nil turn key click sound on, and nil turn off."])
(fset 'get-cursor-mode #[nil "└ëë┼=¡╤╞ ╚╔╩#ê╚╦╠#ê╚═╬#ê╧╨\"ê╤╦\"╥U)╞ ╚╔╙#ê╚╘╥#ê╧╨\"ê╤╒\"╤╓\")\n E+ç" [nil end-line start-line blink-mode dos-machine-type j3100 make-register regs set-register-value ah 130 al 4 bl 255 int86 16 register-value 0 3 bh ch cl] 4 "\
Return a list of current cursor mode information.
List elements are:
0. Start line.
1. End Line.
2. Blink mode.
If this function can't get the info, returns nil."])
(fset 'set-cursor-mode #[(start-line end-line &optional blink-mode) "º¡╟ º¡├\n├=¡╛─ ╞╟╚#ê╞╔╩#ê╞╦½â═¬ü╬#ê╧╨\"ê)─ ╞╟╬#ê╞╤#ê╞╥ #ê╧╨\"ê)╙ç" [start-line end-line dos-machine-type j3100 make-register regs set-register-value ah 130 al 4 bl blink-mode 0 1 int86 16 ch cl nil] 4 "\
Set cursor shape for DOS Machine, specified from STARTPOS to ENDPOS.
Optional third arg non-nil means cursor blinks."])
(byte-code "└┴Mê┬├Mç" [set-screen-mode #[(rows) "º¡Ü ┬=¡ò├U½å─┼!ê¬ë╞U½ä─╟!ê╚ç" [rows dos-machine-type j3100 25 send-string-to-terminal ">3l" 20 ">3h" nil] 2] get-screen-mode #[nil "┴=¡Ñ┬─ ╞╟╚#ê╔╩\"ê╦╠\")═U½â╬¬å╧U¡ü╨)ç" [dos-machine-type j3100 nil screen-mode make-register regs set-register-value ah 15 int86 16 register-value al 116 25 100 20] 4]] 2)